home *** CD-ROM | disk | FTP | other *** search
/ Freelog Special Freeware 31 / FreelogHS31.iso / ArgentCompta / FASTCAISSE / Setup FASTCAISSE.exe / {app} / A Faire40.SQL < prev    next >
Text File  |  2003-10-08  |  2KB  |  92 lines
  1. alter table artfour add condachat1 decimal(11,2) default 1;
  2. update artfour set condachat1=condachat;
  3. alter table artfour drop condachat;
  4. alter table artfour alter condachat1 to condachat;
  5.  
  6. ALTER PROCEDURE "GET_NOM_CLIENT"
  7. (
  8.   "INVALUE" INTEGER
  9. )
  10. RETURNS
  11. (
  12.   "AVALUE" VARCHAR(85)
  13. )
  14. AS
  15. DECLARE VARIABLE V1 VARCHAR(35);
  16. DECLARE VARIABLE V2 VARCHAR(20);
  17. BEGIN
  18. SELECT C.DESIGNATION, T.PRENOM, T.NOM
  19. FROM CLIENTS T
  20. LEFT JOIN CHAINES C ON (C.TYPEC=7) AND (C.LIGNE=T.CIVILITE-1) AND (C.COLONNE=0)
  21. WHERE T.INDX = :INVALUE
  22. INTO :V1,:V2,AVALUE;
  23. IF (:V2<>'') THEN
  24. BEGIN
  25. AVALUE = V2 || ' ' || AVALUE;
  26. IF ((V1 IS NOT NULL) AND (V2 NOT STARTING WITH (V1 || ' '))) THEN AVALUE = V1 || ' ' || AVALUE;
  27. END
  28. ELSE IF (V1 IS NOT NULL) THEN AVALUE = V1 || ' ' || :AVALUE;
  29. SUSPEND;
  30. END
  31.  ;
  32.  
  33.  
  34. ALTER PROCEDURE "GET_NOM_FOUR"
  35. (
  36.   "INVALUE" INTEGER
  37. )
  38. RETURNS
  39. (
  40.   "AVALUE" VARCHAR(85)
  41. )
  42. AS
  43. DECLARE VARIABLE V1 VARCHAR(15);
  44. DECLARE VARIABLE V2 VARCHAR(20);
  45. BEGIN
  46. SELECT C.DESIGNATION, T.PRENOM, T.NOM
  47. FROM FOURNISSEURS T
  48. LEFT JOIN CHAINES C ON (C.TYPEC=7) AND (C.LIGNE=T.CIVILITE-1) AND (C.COLONNE=0)
  49. WHERE T.INDX = :INVALUE
  50. INTO :V1,:V2,AVALUE;
  51. IF (:V2<>'') THEN
  52. BEGIN
  53. AVALUE = V2 || ' ' || AVALUE;
  54. IF ((V1 IS NOT NULL) AND (V2 NOT STARTING WITH (V1 || ' '))) THEN AVALUE = V1 || ' ' || AVALUE;
  55. END
  56. ELSE IF (V1 IS NOT NULL) THEN AVALUE = V1 || ' ' || :AVALUE;
  57. SUSPEND;
  58. END
  59.  ;
  60.  
  61. ALTER TABLE ARTICLES ADD LINKART INTEGER;
  62. ALTER TABLE ARTICLES ADD LINKMACRO INTEGER;
  63.  
  64. CREATE PROCEDURE "ECLATE_RAYON"
  65. (
  66.   "INDX" INTEGER
  67. )
  68. RETURNS
  69. (
  70.   "R1" VARCHAR(40),
  71.   "R2" VARCHAR(40),
  72.   "R3" VARCHAR(40)
  73. )
  74. AS
  75. DECLARE VARIABLE V1 VARCHAR(50);
  76. DECLARE VARIABLE N1 SMALLINT;
  77. DECLARE VARIABLE N2 SMALLINT;
  78. DECLARE VARIABLE N3 SMALLINT;
  79. BEGIN
  80. SELECT RY1,RY2,RY3 FROM RAYONS WHERE PKEY = :INDX INTO :N1,:N2,:N3;
  81. SELECT NOMRAYON FROM RAYONS WHERE (RY1=:N1) AND (RY2=0) AND (RY3=0) INTO :R1;
  82. if (n2<>0) then SELECT NOMRAYON FROM RAYONS WHERE (RY1=:N1) AND (RY2=:N2) AND (RY3=0) INTO :R2;
  83. if (n3<>0) then SELECT NOMRAYON FROM RAYONS WHERE (RY1=:N1) AND (RY2=:N2) AND (RY3=:N3) INTO :R3;
  84. SUSPEND;
  85. END
  86.  ;
  87.  
  88. SET GENERATOR VERSION_BASE TO 40;
  89. COMMIT;
  90.  
  91.  
  92.